home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / adon.arc / SHOPPER.INF < prev   
Encoding:
INI File  |  1990-10-15  |  13.5 KB  |  423 lines
  1. SetMainBorderTo Double
  2. SetCompletionStatusTo Unfinished
  3. SetSupportInformation
  4.   Please call 1-800-234-9497 and ask for Clip-Art Window Shopper Support
  5.   to report this error and request assistance.  Our office is open from
  6.   9 AM to 5 PM Pacific time.
  7. EndSetSupportInformation
  8.  
  9. Dialog
  10. .c =====================================
  11. .c ***  CLIP-ART WINDOW SHOPPER (TM)  ***
  12. .c ***         INSTALLATION           ***
  13. .c ======================================
  14.  
  15. If you make a mistake during installation, just exit with Ctrl+X and
  16. start over.
  17.  
  18. Clip-Art Window Shopper requires:
  19.   1)  a VGA or EGA graphics adapter,
  20.   2)  a hard drive (fixed disk),
  21.   3)  a Hayes-compatible modem (300, 1200, 2400, 4800 or 9600 baud),
  22.   4)  DOS version 3.0 or later,
  23.   5)  the retail version of MS-Windows version 2.10 or later (NOT the
  24.  runtime single-application version distributed with some programs
  25.  such as Micrografx Designer(tm) and Aldus Pagemaker(tm)).
  26. EndDialog
  27.  
  28. SetBottomLineTo Use <Ctrl+X> to quit.  Call 1(800)234-9497 for assistance.
  29.  
  30. If DOSVersion < 3.0
  31.   Dialog
  32.   Clip-Art Window Shopper cannot be used on your machine
  33.   because the DOS Version is too old.  Please install DOS
  34.   Version 3.0 or later, then try installing 'Shopper' again.
  35.  
  36.   'Shopper' Installation is aborting.
  37.   EndDialog
  38.   SoLong
  39. EndIf
  40.  
  41. [Point1]
  42.  
  43. ;; here is where the minimal files are selected for expanding and copying
  44. QueFiles
  45.     shopper.exe
  46.     shopper.ico
  47.     update.bat
  48.     update.pif
  49. EndQueFiles
  50. QueFiles to DATA
  51. ;; non-thumbnail database files
  52. ??0*.*
  53. ;;??1*.*
  54. ;;??3*.*
  55. ;;??4*.*
  56. ;;??5*.*
  57. ;;??6*.*
  58. ;;??7*.*
  59. ;;??9*.*
  60. EndQueFiles
  61. ;;[Number1] := QueSize   ;; override below
  62. [Number1] := 540672   ;; from test on 2048 cluster size drive
  63.  
  64. Dialog
  65. Clip-Art Window Shopper will need at least [Number1] bytes of space on
  66. a single drive for all its files (the exact space requirement depends
  67. on the drive size).  'Shopper' can use more space if it is available.
  68.  
  69. We recommend installing 'Shopper' on a hard drive (fixed disk).
  70. You may not install 'Shopper' onto a floppy drive or RAM disk.
  71. If installing to a network drive, you must have Write, Erase and
  72. Directory Creation access rights to the installation directory.
  73. EndDialog
  74.  
  75. ;; Set default drive and directory
  76. [InstallationDirectory] := C:\SHOPPER
  77.  
  78. ;; Prompt for drive -- Come back here if drive must be reselected
  79. [Point2]
  80. [Number1] := 540672   ;; reset in case has been recalculated for larger disk
  81. DetermineInstallationDrive RequireFixed [Number1]
  82. Do CheckDrive
  83. If [Number5] = 1
  84.     GoTo [Point2]
  85. EndIf
  86. ;; Save this drive for detecting a change in the InstallationDirectory selection
  87. [String1] := InstallationDrive
  88.  
  89. ;; Set default directory
  90. [InstallationDirectory] := InstallationDrive:\SHOPPER
  91.  
  92. [Point3]    ;; Come back here if directory must be reselected
  93. Dialog [InstallationDirectory]    ;;Prompt for directory --
  94. Clip-Art Window Shopper will keep all its files together on the
  95. directory you specify, with some of the files in a subdirectory
  96. called DATA.  Please enter the directory where 'Shopper' should be
  97. stored.  (Note: this cannot be the root directory.)
  98. If the directory does not exist, INSTALL will create it for you.
  99.  
  100. EndDialog
  101.  
  102. If [String1] <> InstallationDrive
  103.     Do CheckDrive
  104.     If [Number5] = 1
  105.         GoTo [Point2]
  106.     EndIf
  107.     [String1] := InstallationDrive
  108. EndIf
  109.  
  110. ;; Check for root directory
  111. If [InstallationDirectory] = InstallationDrive:\
  112.     Dialog PressAKey
  113.     Shopper may not be installed to or run from the root directory.
  114.     Please choose another directory on the installation drive.
  115.     EndDialog
  116.     [InstallationDirectory] := InstallationDrive:\SHOPPER
  117.     GoTo [Point3]
  118. EndIf
  119.  
  120. [DIR1] := [InstallationDirectory]
  121. If DirectoryExists [DIR1]
  122.     Dialog [YesOrNo1]
  123.     The installation directory already exists; existing files
  124.     will be deleted or overwritten if INSTALL continues.
  125.     Do you want to continue and overwrite?
  126.     EndDialog
  127.     If [YesOrNo1] = N
  128.         Dialog PressAKey
  129.             Please choose a directory which may be overwritten,
  130.             or which doesn't exist yet.
  131.         EndDialog
  132.         GoTo [Point3]
  133.     EndIf
  134.     ;; OK to overwrite
  135.     DeleteFiles from [InstallationDirectory] Quietly
  136.     shopper.exe     ;; wipe files about to install to prevent
  137.     shopper.ico     ;; "OK to replace?" prompts
  138.     update.bat
  139.     update.pif
  140.     read.me
  141.     ;; wipe data from old BETA version:
  142.     0*.*        ;; all database files
  143.     1*.*
  144.     ;;2*.* etc. if ever used
  145.     [DIR1] := [InstallationDirectory]\DATA
  146.     If DirectoryExists [DIR1]
  147.         ;; all non-thumbnail database files
  148.         ??0*.*
  149.         ??1*.*
  150.         ??3*.*
  151.         ??4*.*
  152.         ??5*.*
  153.         ??6*.*
  154.         ??7*.*
  155.         ??9*.*
  156.         ;;ArtRight Volume 1
  157.         0080002F.*
  158.         00200032.*
  159.         00800030.*
  160.         00200033.*
  161.         00800031.*
  162.         00200034.*
  163.         00800032.*
  164.         00200035.*
  165.         00800033.*
  166.         00200036.*
  167.     EndIf
  168.     EndDeleteFiles
  169.     DeleteFiles from [InstallationDirectory] Quietly
  170.     EndDeleteFiles
  171. EndIf
  172.  
  173. ;; Calculate space required from drive size (QueSize doesn't take cluster size
  174. ;; into account)
  175. [Number2] := TotalSpaceOnDrive InstallationDrive
  176. ;;If [Number2] < 16777216  ;; then cluster size is 2048? or 4096?
  177. ;;    [Number1] :=  unchanged from initial setting
  178. ;;else
  179. If [Number2] > 33554432  ;; then cluster size is 4096?
  180.     [Number1] := 860160     ;; calc'd size for cluster size=4096
  181. EndIf
  182. If [Number2] > 67108864  ;; then cluster size is 8192?
  183.     [Number1] := 1581056    ;; calc'd size for cluster size=8192
  184. EndIf
  185. If [Number2] > 134217728   ;; then cluster size is 16384?
  186.     [Number1] := 3014656    ;; calc'd size for cluster size=16384
  187. EndIf
  188.  
  189. ;; Now that old files have been cleared, check for sufficient free space
  190. If FreeSpaceOnDrive InstallationDrive < [Number1]
  191.   Dialog [YesOrNo1]
  192.     Clip-Art Window Shopper would require at least [Number1] bytes
  193.     of free space on drive InstallationDrive for full installation.
  194.     There is not enough space on the drive to ensure successful
  195.     installation.  Installation may not be complete and 'Shopper'
  196.     may not work correctly.
  197.     .c Do you want to try installing anyway?
  198.   EndDialog
  199.   If [YesOrNo1] = N
  200.     Dialog
  201.       Please select a different drive with sufficient space, or
  202.       exit INSTALL, delete unwanted files to free up space,
  203.       and try INSTALL again.
  204.     EndDialog
  205.     GoTo [Point2]
  206.   EndIf
  207. EndIf
  208.  
  209. ;; here is where the essential files actually get copied
  210. GetQuedFiles
  211. CopyFiles
  212. READ.ME
  213. EndCopyFiles
  214.  
  215. ;;****************************************************************************
  216. ;; now add optional thumbnail files if there is room
  217. [Number1] := 186368   ;; from test, 2048 cluster size
  218. If [Number2] > 33554432  ;; then cluster size is 4096? or 8192?
  219.     [Number1] := 225280     ;; calc'd size for cluster size=4096
  220. EndIf
  221. If [Number2] > 67108864  ;; then cluster size is 8192? or 16384?
  222.     [Number1] := 303104    ;; calc'd size for cluster size=8192
  223. EndIf
  224. If [Number2] > 134217728  ;; then cluster size is 16384? or 32768?
  225.     [Number1] := 458752    ;; calc'd size for cluster size=16384
  226. EndIf
  227.  
  228. If FreeSpaceOnDrive InstallationDrive >= [Number1]
  229.     QueFiles to DATA
  230.     002*.*
  231.     008*.*
  232.     EndQueFiles
  233.     GetQuedFiles
  234. else
  235.     Dialog PressAKey
  236.     INSTALL found enough space to install the minimum files essential
  237.     to running Clip-Art Window Shopper, but there was not enough room
  238.     to load any thumbnail files for previewing clip-art libraries.
  239.  
  240.     We strongly recommend clearing some additional space (350K, or
  241.     more if possible) from your InstallationDrive drive, to ensure
  242.     full functionality and satisfactory performance from 'Shopper'.
  243.     You will not need to run INSTALL again after clearing this
  244.     space; 'Shopper' will utilize it automatically.
  245.     EndDialog
  246. EndIf
  247.  
  248. ChangeDirectoryTo [InstallationDirectory]
  249. SetCompletionStatusTo Finished
  250.  
  251. ;;Find out which version of Windows they use.
  252. GoToXY @xy(40,8)
  253. GetMenuChoice
  254.     Windows 2.1 or 2.11
  255.         ; Select which version of Windows you will use with 'Shopper'.
  256.     Windows 386
  257.         ; Select which version of Windows you will use with 'Shopper'.
  258.     Windows 3.0
  259.         ; Select which version of Windows you will use with 'Shopper'.
  260. EndGetMenuChoice
  261. InCase Choice is
  262.     = 1:    [String9] := WIN
  263.             [Number9] := 1
  264.             ;; [DIR2] := C:\WIN
  265.     = 2:    [String9] := WIN386
  266.             [Number9] := 2
  267.             ;; [DIR2] := C:\WIN386
  268.     = 3:    [String9] := WIN
  269.             [Number9] := 3
  270.             ;; [DIR2] := C:\WIN30
  271. EndInCase
  272.  
  273. If [Number9] = 3    ;; Windows 3.0
  274. Dialog
  275. .c ***  INSTALLATION COMPLETE  ***
  276.  
  277. Clip-Art Window Shopper(TM) has been successfully installed!
  278.  
  279. Please add 'Shopper' to your Accessories group box in MS Windows.
  280. In the Windows Program Manager, select the Accessories group box,
  281. and choose 'New...' from the 'File' menu to add a Program Item.
  282. Enter 'Clip-Art Window Shopper' in the Description field, and
  283. '[InstallationDirectory]\SHOPPER' in the Command Line field.
  284.  
  285. You should also have the directory where you installed Windows in
  286. your path.  For an explanation of the path and how to set it, see
  287. your MS-DOS or Windows manual.
  288. EndDialog
  289.  
  290. else    ;; Windows 2.x or 386
  291. Dialog
  292. .c ***  INSTALLATION COMPLETE  ***
  293.  
  294. Clip-Art Window Shopper(TM) has been successfully installed!
  295.  
  296. Please add [InstallationDirectory] to the 'PATH=' statement in your
  297. AUTOEXEC.BAT file.  Otherwise you will only be able to start
  298. 'Shopper' when the current directory is [InstallationDirectory].
  299.  
  300. You should also have the directory where you installed Windows in
  301. your path.  For an explanation of the path and how to set it, see
  302. your MS-DOS or Windows manual.
  303. EndDialog
  304. EndIf
  305.  
  306. If [Number9] = 3    ;; Windows 3.0
  307. [String1] := InstallationDrive
  308. Dialog
  309. .c STARTING CLIP-ART WINDOW SHOPPER
  310.  
  311. If your machine is in DOS, first start MS Windows:
  312.     1)  At the DOS prompt, type '[String9]'.
  313.  
  314. To start Clip-Art Window Shopper when MS Windows is running:
  315.     1)  bring up the Program Manager window.
  316.     2)  select the Accessories group box.
  317.     3)  double-click on the SHOPPER icon.
  318.  
  319. Or, you could select 'Run...' from the 'File' menu of either the Program
  320. Manager or File Manager, and type 'shopper' into the 'Run:' edit box.
  321. EndDialog
  322.  
  323. Dialog
  324. .c STARTING CLIP-ART WINDOW SHOPPER (cont.)
  325.  
  326. You may also start 'Shopper' from DOS when you start Windows:
  327.     1)  Set your current drive and directory to the drive and directory
  328.  containing SHOPPER.EXE by typing at the DOS prompt
  329.  '[String1]:' followed by 'CD [InstallationDirectory]'.
  330.     2)  At the DOS prompt, type '[String9] SHOPPER'.
  331. EndDialog
  332. else
  333. Dialog
  334. .c STARTING CLIP-ART WINDOW SHOPPER
  335.  
  336. If your machine is in DOS, first start MS Windows:
  337.     1)  At the DOS prompt, type '[String9]'.
  338.  
  339. To start Clip-Art Window Shopper when MS Windows is running:
  340.     1)  bring up the main 'MS-DOS Executive' window.
  341.     2)  change drives and directories to [InstallationDirectory],
  342.  the directory containing SHOPPER.EXE.
  343.     3)  either double-click on the file SHOPPER.EXE, or select
  344.  'Run...' from the 'File' menu and type 'shopper' into
  345.  the 'Run:' edit box.
  346. EndDialog
  347.  
  348. Dialog
  349. .c STARTING CLIP-ART WINDOW SHOPPER (cont.)
  350.  
  351. You may also start 'Shopper' from DOS when you start Windows:
  352.     1)  Set your current drive and directory to the drive and directory
  353.  containing SHOPPER.EXE by typing at the DOS prompt
  354.  '[String1]:' followed by 'CD [InstallationDirectory]'.
  355.     2)  At the DOS prompt, type '[String9] SHOPPER'.
  356. EndDialog
  357. EndIf
  358.  
  359. Dialog
  360. .c PREVIEWING CLIP ART
  361.  
  362. The following clip art library is available for immediate preview:
  363.  
  364.  Art Right (tm) Volume 1.
  365.  
  366. Other libraries are on the additional diskettes; Clip-Art Window Shopper
  367. will ask you to insert them when needed.
  368.  
  369. Please read the file [InstallationDirectory]\READ.ME
  370. for late-breaking news that didn't make it into the manual.
  371. EndDialog
  372.  
  373. SoLong
  374.  
  375. ;;*****************************************************************************
  376. ;; PROCEDURES
  377.  
  378. Procedure CheckDrive
  379. [Number5] := 0       ;; flag, set to 1 if drive tests invalid
  380. [String2] := InstallationDrive
  381. ;; Check that a drive is acceptable.  Does not test for adequate free space.
  382. If DriveIsRAM [String2]
  383.     Dialog PressAKey
  384.     RAM drives are not suitable for Clip-Art Window Shopper installation.
  385.     RAM drives lose their files when the PC is turned off or rebooted.
  386.     Please choose a hard drive for this installation.
  387.     EndDialog
  388.     [Number5] := 1
  389. EndIf
  390. If DriveIsRemoveable InstallationDrive
  391. ;; Check removable drives closely.
  392.     If DriveIsBernoulli InstallationDrive
  393.         Do RemovableDialog
  394.     else
  395.         [Number2] := TotalSpaceOnDrive InstallationDrive
  396.         If [Number2] < 1500000 ;; smaller than 1.5 meg is a floppy drive
  397.             Dialog
  398.             Floppy drives are not suitable for Clip-Art Window Shopper
  399.             installation.  Floppy drives are too slow to give acceptable
  400.             performance.
  401.             Please choose a hard drive for this installation.
  402.             EndDialog
  403.             [Number5] := 1
  404.         else    ;; larger than 1.5 meg may be alright
  405.             Do RemovableDialog
  406.         Endif
  407.     Endif
  408. Endif
  409. EndProcedure
  410.  
  411. Procedure RemovableDialog
  412. Dialog [YesOrNo1]
  413. Removable media like Bernoulli boxes may be too slow to give
  414. acceptable performance.  Hard drives are usually much faster.
  415. Do you want to change your selection to a hard drive?
  416. EndDialog
  417. If [YesOrNo1] = Y
  418.     [Number5] := 1
  419. Endif
  420. EndProcedure
  421.  
  422. EndScript
  423.